home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ENT_SEEN.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  106 lines
  1. ;\|
  2. ;ENT_SEEN.SRC     Translated from ENT_SEEN.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;ENT_SEEN 10:44:27 AM  10/ 7/90   |
  4.     define(MEM_DOC|N|1||)
  5.     define(MEM_VIS|A|1||)
  6.     define(MEM_VIS2|A|1||)
  7.     define(MEM_NUM|N|3||)
  8.     define(MEM_Q|N|2||)
  9.     define(TD|D|10||)
  10.     open(REFER||0|EXIT)
  11.     open(PATIENT||1|EXIT)
  12.     trap(D|I)
  13.     trap(C|G|CLEAR)
  14.     trap(Q|G|EXIT)
  15.     date(TD|G)
  16.     mount(NEW|S)
  17. START:
  18.     clr(PATIENT|B)
  19.     clr(REFER|B)
  20.     MEM_DOC = (0)
  21.     MEM_VIS = ("")
  22.     MEM_NUM = (0)
  23.     MEM_VIS2 = ("")
  24.     enter(MEM_DOC|"12345"|||N|Y|N|||N)
  25.     enter(PATIENT.NAME||||Y|N|N|||N)
  26.     find(G|PATIENT.NAME||)
  27. LASTSEEN:
  28.     if VISIT = ("V") do
  29.         {
  30.         MEM_NUM = (TD-SENT_FOR)
  31.         if MEM_NUM > (365) then VISIT = ("")
  32.         }
  33. NEXTENTRY:
  34.     enter(DATE_SEEN|||NEXTENTRY|N|N|N|||N)
  35.     SEEN = (DATE_SEEN)
  36.     enter(MEM_VIS2|" YV"|||Y|Y|N|||N)
  37.     MEM_VIS = (MEM_VIS2)
  38. NOV:
  39.     enter(TELEPHONE||||N|N|N|||N)
  40.     if PAT.REG <> (0) do
  41.         {
  42.         MEM_Q = (PAT.REG-DATE_SEEN)
  43.         if MEM_Q < (93) then SMOKER = ("Y")
  44.         }
  45.     enter(SMOKER|" Y"|||Y|Y|N|||N)
  46.     if RECORD.NUMBER = (0) goto START
  47.     if MEM_VIS = ("V") then VISIT = ("V")
  48.     save(PATIENT|Y|Y|START)
  49.     REF_COD = (MEM_DOC)
  50.     find(M|REF_COD|EXIT|)
  51.     NUM_SEEN = (NUM_SEEN+1)
  52.     if MEM_VIS2 = ("Y") then NUM_VIS = (NUM_VIS+1)
  53.     if MEM_VIS = ("V") then NUM_VIS = (NUM_VIS+1)
  54.     save(REFER|N|Y)
  55.     MEM_DOC = (0)
  56.     MEM_VIS = ("")
  57.     MEM_NUM = (0)
  58.     MEM_VIS2 = ("")
  59.     MEM_Q = (0)
  60.     goto START
  61. EXIT:
  62.     run("recmenu")
  63. CLEAR:
  64.     clr(PATIENT|B)
  65.     MEM_DOC = (0)
  66.     MEM_VIS = ("")
  67.     MEM_NUM = (0)
  68.     MEM_VIS2 = ("")
  69.     goto START
  70. \STNEW     
  71.  
  72.  
  73.  
  74.  
  75.                                LAST SEEN ENTRY SCREEN
  76.                   ╔═════════════════════════════════════════════════╗
  77.                   ║  DOCTOR NUM  :&                                 ║
  78.                   ║  PATIENT.NAME:&                          < DOB  ║
  79.                   ║  LAST SEEN   :&                     &         < ║
  80.                   ║  VISIT       :&                                 ║
  81.                   ║  TELEPHONE   :&          Reg.Date:&             ║
  82.                   ║  New Pat.Chk.:&                                 ║
  83.                   ╚═════════════════════════════════════════════════╝
  84.                                    ESC - EXIT
  85.                    NOTE: IF VISIT WAS SPECIAL OVER 75 REVIEW ENTER "V"
  86.                    NOTE: 1.3 YR CHECK - Y IF IT WAS.BLANK OTHERWISE.
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95. \
  96. MEM_DOC
  97. PATIENT.NAME
  98. DATE_SEEN
  99. DATE.OF.BIRTH
  100. MEM_VIS2
  101. TELEPHONE
  102. PAT.REG
  103. SMOKER
  104. \
  105.  
  106.